;:open1,8,15,"s:show.cod":close1
;:open2,8,2,"show.cod,p,w
;:sys36864
	*= 49152
	;.opt o2
pic1	=$2000
pic2	=$4000
tmp	=2
tmp2	=4
getpar	=$e1d4
chkkom	=$aefd
sa	=$b9
loadr	=$ffd5
pic3	=$6000
esc	=123
add	=249
add0	=248
nr	=247
	jmp load
	jmp ueberbl
	jmp colin
	jmp depack
	.byt 1
bt	=*
	.byt %10000101
	.byt %00000000
	.byt %01000000
	.byt %00010010
	.byt %00000000
	.byt %01000000
	.byt %00000000
	.byt %00100000
;
	.byt %00000000
	.byt %00010010
	.byt %00001000
	.byt %00000001
	.byt %10000100
	.byt %00100000
	.byt %00000010
	.byt %00000000
;
	.byt %01000000
	.byt %00001000
	.byt %10000100
	.byt %00000000
	.byt %01100010
	.byt %00000100
	.byt %00000000
	.byt %00000000
;
	.byt %00000010
	.byt %01000000
	.byt %00000000
	.byt %00000100
	.byt %00011000
	.byt %00000000
	.byt %00100000
	.byt %10000001
;
	.byt %00000000
	.byt %00100000
	.byt %00000010
	.byt %00001000
	.byt %00000000
	.byt %10010010
	.byt %01000000
	.byt %00001000
;
	.byt %00100000
	.byt %00000000
	.byt %00000001
	.byt %10100000
	.byt %00000000
	.byt %00000000
	.byt %10011000
	.byt %01000000
;
	.byt %00010000
	.byt %00000000
	.byt %00010000
	.byt %01000000
	.byt %00000001
	.byt %00001001
	.byt %00000100
	.byt %00010000
;
	.byt %00001000
	.byt %10000101
	.byt %00100000
	.byt %00000000
	.byt %00000000
	.byt %00000000
	.byt %00000001
	.byt %00000110
load	jsr chkkom
	jsr getpar
	ldx #<pic3
	ldy #>pic3
	lda #0
	sta sa
	jmp loadr
ueberbl	sei
	lda #7
	sta nr
ueberbla	asl
	asl
	asl
	clc
	adc #7
	sta add0
	ldy #<pic1
	sty tmp2
	sty tmp
	lda #>pic2
	sta tmp2+1
	lda #>pic1
	sta tmp+1
ll2	ldy #7
	ldx add0
ll1	lda (tmp),y
	eor #-1
	ora bt,x
	eor #-1
	sta add
	lda (tmp2),y
	and bt,x
	ora add
	sta (tmp),y
	dex
	dey
	bpl ll1
	lda tmp2
	clc
	adc #8
	sta tmp2
	lda tmp2+1
	adc #0
	sta tmp2+1
	lda tmp
	clc
	adc #8
	sta tmp
	lda tmp+1
	adc #0
	sta tmp+1
	cmp #>pic2
	bne ll2
	dec nr
	lda nr
	bpl ueberbla
	cli
	rts
colin	ldx #4
	stx tmp+1
	ldy #0
	sty tmp
	lda #16
c	sta (tmp),y
	dey
	bne c
	inc tmp+1
	dex
	bne c
	rts
depack	lda #<pic3
	ldy #>pic3
	sta tmp
	sty tmp+1
	lda #<pic2
	ldy #>pic2
	sta tmp2
	sty tmp2+1
m1	jsr getb
	cmp #esc
	beq m2
	jsr put
	jmp m1
m2	jsr getb
	tax
	beq off
	jsr getb
m3	jsr put
	dex
	bne m3
	beq m1
off	rts
put	ldy #0
	sta (tmp2),y
	inc tmp2
	bne l2
	inc tmp2+1
l2	rts
getb	ldy #0
	lda (tmp),y
	inc tmp
	bne l2
	inc tmp+1
	rts